home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / filutil / pa_st270.zip / EXAMPLE8.POM < prev    next >
Text File  |  1995-02-01  |  1KB  |  54 lines
  1. ;
  2. ; NOTE:  A quick-reference summary of POM commands appears in EXAMPLE4.POM
  3. ;
  4. ;-----------------------------------------------------------------------------
  5. ;
  6. ; This file is similar to EXAMPLE3.POM, but it uses the LOOKUP command.
  7. ;
  8. ;-----------------------------------------------------------------------------
  9. ;
  10. MINLEN = "1"
  11. ;
  12. ; Remove everything before and after the headings
  13. ;
  14. IF       $FLINE[  1  11] = "-----------" THEN HDRCNTR = HDRCNTR+
  15. IGNORE   HDRCNTR         = ""
  16. IGNORE   HDRCNTR         = "3"
  17. IGNORE   HDRCNTR         = "4"
  18. IGNORE   $FLINE[ 34  41] = "PHONUMBR"
  19. IGNORE   $FLINE[  1  11] = "-----------"
  20. IGNORE   FINISHED        = "Y"
  21. IF       HDRCNTR         = "4" THEN FINISHED = "Y"
  22. ;
  23. ; Set page headings, with a top margin of one line
  24. ;
  25. PAGELEN  "55" "Y"
  26. OUTHDG   ""
  27. OUTHDG   "-------------------------------- -------- -------------"
  28. OUTHDG   "NAME OF BBS                      PHONENUM TYPE OF MODEM"
  29. OUTHDG   "-------------------------------- -------- -------------"
  30. ;
  31. ; Get modem type
  32. ;
  33. SET      type            = $FLINE[43 44]
  34. ;
  35. ; Ignore the slow ones
  36. ;
  37. IGNORE   type            = "30"
  38. IGNORE   type            = "12"
  39. ;
  40. ; Set up look-up file
  41. ;
  42. LOOKFILE "EXAMPLE8.TBL"
  43. LOOKSPEC "Y" "Y" "Y"
  44. LOOKCOLS "7" "8" "20" "255"
  45. ;
  46. ; Look up modem speed description
  47. ;
  48. LOOKUP   speed = type
  49. ;
  50. ; Output
  51. ;
  52. SET     data = $FLINE[1 41]
  53. OUTEND  |{data} {speed}
  54.